unit uParametro;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uPai_new, Menus, DB, StdCtrls, Buttons, ExtCtrls, MMJPanel,
  FMTBcd, DBClient, Provider, SqlExpr, DBCtrls;

type
  TfParametro = class(TfPai_new)
    sqlParam: TSQLDataSet;
    dspParam: TDataSetProvider;
    cdsParam: TClientDataSet;
    sqlParamPAR_GEETIQ: TStringField;
    cdsParamPAR_GEETIQ: TStringField;
    Label1: TLabel;
    DBComboBox1: TDBComboBox;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fParametro: TfParametro;

implementation

uses udm;

{$R *.dfm}

end.
